100 REM DIRECTORY-SORTER 101 REM SORTIERT DIRECTORY ALPHABETISCH 102 REM BEI VIELEN EINTRAEGEN BITTE 103 REM ETWAS GEDULD (MAX. 5.MIN) 104 REM SORTIERT AUCH GESCRATCHTE FILES 105 REM MIT, STELLT SIE ABER NICHT 106 REM WIEDER HER ! SORTIERALGORITHMUS 107 REM KANN SICH IN EINEM SOLCHEN FALL 108 REM IN EINER ENDLOSSCHLEIFE VER- 109 REM HEDDERN. ABHILFE: NACH 3-4 MIN. 110 REM STOP-TASTE DRUECKEN, DANN 111 REM GOTO 210 EINGEBEN. SIND EINTR. 112 REM DANN NOCH NICHT VOLLKOMMEN SOR- 113 REM TIERT, NOCHMALS FUER EINIGE 114 REM MINUTEN LAUFEN LASSEN. 115 REM ACHTUNG !!! NUR ZUSAMMEN MIT 116 REM DEN UNTERPROGRAMMEN 1 & 2 117 REM ABLAUFFAEHIG !!! 118 : 119 : 120 DIMDD$(144) 130 MM=MM+1:GOSUB1000 140 IF DD$=NN$THENMM=MM-1:GOTO160 150 DD$(MM)=DD$:DD$="":GOTO130 160 FOR GG=1TOMM-1 170 IF MID$(DD$(GG),4,16)